home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / ear / listati4.lha / DIDATTICA-1-BOX01.TXT next >
Text File  |  1996-01-11  |  310b  |  25 lines
  1.  
  2.         - Riquadro 1 -
  3.  
  4.  
  5. /*
  6. *
  7. * Piccolo programma di prova
  8. * per testare il comportamento del
  9. * compilatore con le liste nelle
  10. * quali siano presenti elementi
  11. * modificati in run-time.
  12. *
  13. */
  14.  
  15. PROC main()
  16.         DEF     p1,p2,var
  17.  
  18.         var:=5;
  19.         p1:=[1,2,3]:LONG
  20.         p2:=[1,2,var]:LONG
  21.  
  22. ENDPROC
  23.  
  24.  
  25.